home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / FORTRAN / 3017.ZIP / LINES.FOR < prev    next >
Text File  |  1988-09-22  |  576b  |  36 lines
  1.       PROGRAM LINES
  2. C
  3. C     EXAMPLE PROGRAM FOR GBIOS
  4. C     OLYMPIC SOFTWARE  --  9/22/88
  5. C
  6.       EXTERNAL GBIOS
  7.       INTEGER*2 IAR(4)
  8. C
  9. C***    CHANGE TO GRAPHICS MODE, MODE=6 (CGA GRAPHICS)
  10.       IAR(1)=0
  11.       IAR(2)=6
  12.       CALL GBIOS(IAR)
  13. C
  14. C***    PLOT VERTICAL LINES
  15.       IAR(1)=12
  16.       IAR(2)=15
  17.       DO 10 J=1,200
  18.       DO 10 I=1,200
  19.       IAR(3)=3*(J-1)
  20.       IAR(4)=I-1
  21.       CALL GBIOS(IAR)
  22.  10   CONTINUE
  23. C
  24. C***    CHANGE TO TEXT MODE, MODE=3
  25.       IAR(1)=0
  26.       IAR(2)=3
  27.       CALL GBIOS(IAR)
  28. C
  29.       STOP
  30.       END
  31.  
  32.  
  33.  
  34.  
  35.  
  36.